﻿
Imports System.IO

Public Class container
    Inherits xmlcontrol

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
    End Sub

    Protected Overrides Sub set_childdepth(ByRef depth As Int32)
        depth = Me.depth()
    End Sub

    Protected Overrides Function render(ByVal compress As Boolean) As Boolean
        If preRenderCheck() Then
            If Not renderChildren(compress) Then
                raiseError("cannot render children controls, control " + Me.GetType.FullName() _
                            , errorHandle.errorType.exclamation)
                Return False
            End If

            Return True
        Else
            Return False
        End If
    End Function

End Class
